home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / sbprolog / v3 / sbp_iris < prev    next >
Encoding:
Internet Message Format  |  1993-08-14  |  17.5 KB
  1. From scotth@SGI.COM Thu Jan  5 21:08:09 1989
  2. Received: from megaron.arizona.edu by granjon.arizona.edu; Thu, 5 Jan 89 21:08:04 MST
  3. Received: from noao.arizona.edu by megaron.arizona.edu (5.59-1.7/15) via SMTP
  4.     id AA06151; Thu, 5 Jan 89 21:09:26 MST
  5. Received: from HANDIES.UCAR.EDU by noao.edu (5.59/SAG.G11)
  6.     id AA05032; Thu, 5 Jan 89 21:07:56 MST; for arizona.edu!debray@arizona.edu
  7. Received: from SGI.COM by ncar.UCAR.EDU (5.58/1.00.UUCP-MOD.8-11-85)
  8.     id AA10727; Thu, 5 Jan 89 19:28:40 MST
  9. Received: from harlie.sgi.com by sgi.sgi.com (5.52/880418.SGI)
  10.     (for ncar.ucar.edu!noao!arizona!arizona.edu!debray) id AA26178; Thu, 5 Jan 89 14:10:26 PST
  11. Received: from localhost.SGI.COM by harlie.sgi.com (5.52/880418.SGI)
  12.     (for debray@arizona.edu) id AA18498; Thu, 5 Jan 89 14:10:21 PST
  13. Message-Id: <8901052210.AA18498@harlie.sgi.com>
  14. To: debray@arizona.edu
  15. Subject: SBProlog v3.0 diffs for IRIS system
  16. Date: Thu, 05 Jan 89 14:10:19 PST
  17. From: scotth@SGI.COM
  18. Status: RO
  19.  
  20. Here are the diffs for the sbp_v3.0.tar.Z I picked up several weeks ago.
  21. I have included the diffs for the source code (and the Makefile), along
  22. with the output of the benchmarks run on my system. I did not fully
  23. implement an AT&T SysV version of the time.c functions, only the one I 
  24. currently have any need of.
  25.  
  26. Some notes about the port:
  27.  
  28. 1) Because SGI uses a SysV r3.1 based kernel with most of BSD 4.3 as
  29.    enhancements, when I was sure that the replacement function was vanilla
  30.    SysV, I used "#ifdef ATT", else I used "#ifdef IRIS_4D", and I used an
  31.    "#ifdef BSD4" around the areas I needed to comment out.
  32.  
  33. 2) Although the current rev of the OS supports MIMD tightly coupled multi-
  34.    processing, I neither compiled for that option, nor tested in that
  35.    environment.
  36.  
  37. 3) The environment I compiled, linked, and run on is:
  38.  
  39.    IRIS 4D/70G (a MIPS R2000 RISC processor running at 12.5 MHz) w/16MB memory,
  40.    IRIX 3.1 release operating system (see above),
  41.    -O4 optimization level for the benchmark results (make sim).
  42.  
  43. Recompiling with -O4 optimization (make sim) improved the benchmark results
  44. by various amounts: from 1% improvement (for walk_term_rec) to over 40%
  45. (for access_unit); most results were 20-25% improvement over compiling with
  46. the default optimization (make sbprolog).
  47.  
  48. I ran the nrev (Naive Reverse) benchmark for 10000 iterations, the Pereira
  49. benchmarks were run unchanged.
  50.  
  51. Mostly for my own information, I decided to time the compile of the 
  52. optimized version (time make sim). This is on a mostly otherwise idle
  53. system (mostly just me doing "ps -l" to see what was going on..
  54.  
  55. 223.4u 27.6s 5:56 70%
  56.  
  57. and at its peak, the ucode (global) optimizer used 8.8MB of virtual memory
  58. (must have paged out everything else).
  59.  
  60. Thanks for all your help.
  61. Here is the diffs in a shar file.
  62. ---------------------------------------------
  63. #!/bin/sh
  64. # to extract, remove the header and type "sh filename"
  65. if `test ! -d ./diffs`
  66. then
  67.   mkdir ./diffs
  68.   echo "mkdir ./diffs"
  69. fi
  70. if `test ! -s ./diffs/Makefile.diff`
  71. then
  72. echo "writing ./diffs/Makefile.diff"
  73. cat > ./diffs/Makefile.diff << '\Rogue\Monster\'
  74. *** Makefile.orig    Thu Jan  5 13:10:36 1989
  75. --- Makefile    Thu Jan  5 11:36:07 1989
  76. ***************
  77. *** 1,40 ****
  78. ! CFLAGS = -c -g 
  79.   #CC = /usr/local/gcc
  80.   CC = cc
  81.   OBJ1 = main.o dispatch.o init.o float.o io.o sub_inst.o loader.o dis.o
  82.   OBJ2 = parse_oprnd.o print_inst.o unify.o load_work.o aux.o evalexp.o
  83. ! OBJS = $(OBJ1) $(OBJ2)
  84.   
  85. ! sbprolog  : $(OBJS) builtin/builtin
  86. !     $(CC) -o sbprolog $(OBJS) builtin/builtin
  87. !     strip sbprolog
  88. !     rm $(OBJS)
  89.   
  90.   main.o : main.c simdef.h inst.h aux.h sim.h
  91.       $(CC) $(CFLAGS) main.c
  92.   dispatch.o: dispatch.c inst.h
  93.       $(CC) $(CFLAGS) dispatch.c 
  94.   dis.o: dis.c sim.h inst.h
  95.       $(CC) $(CFLAGS) dis.c 
  96.   init.o : init.c sim.h inst.h aux.h
  97.       $(CC) $(CFLAGS) init.c
  98.   float.o : float.c aux.h sim.h
  99.       $(CC) $(CFLAGS) float.c
  100.   io.o : io.c aux.h sim.h 
  101.       $(CC) $(CFLAGS) io.c 
  102.   sub_inst.o : sub_inst.c sim.h aux.h
  103.       $(CC) $(CFLAGS) sub_inst.c 
  104.   loader.o : loader.c sim.h inst.h 
  105.       $(CC) $(CFLAGS) loader.c 
  106.   parse_oprnd.o : parse_oprnd.c inst.h sim.h
  107.       $(CC) $(CFLAGS) parse_oprnd.c 
  108.   print_inst.o : print_inst.c inst.h sim.h
  109.       $(CC) $(CFLAGS) print_inst.c 
  110.   unify.o : unify.c sim.h aux.h
  111.       $(CC) $(CFLAGS) unify.c 
  112.   load_work.o : load_work.c sim.h aux.h
  113.       $(CC) $(CFLAGS) load_work.c 
  114.   aux.o : aux.c
  115.       $(CC) $(CFLAGS) aux.c 
  116.   evalexp.o : evalexp.c
  117.       $(CC) $(CFLAGS) evalexp.c 
  118. --- 1,129 ----
  119. ! # makefile for SBProlog on the Silicon Graphics IRIS-4D
  120. ! #   (modified so that edge can find all source files)
  121. ! #   mods by S. Henry, Wed Dec 14 16:17:23 PST 1988
  122. ! 
  123. ! COPTS = -I. -Ibuiltin -I/usr/include/bsd -DIRIS_4D -DATT
  124. ! CFLAGS = -c -g $(COPTS)
  125. ! #CFLAGS = -c -g -I. -Ibuiltin -I/usr/include/bsd -DIRIS_4D -DDEBUG
  126.   #CC = /usr/local/gcc
  127.   CC = cc
  128. + LD = cc
  129.   OBJ1 = main.o dispatch.o init.o float.o io.o sub_inst.o loader.o dis.o
  130.   OBJ2 = parse_oprnd.o print_inst.o unify.o load_work.o aux.o evalexp.o
  131. ! OBJA = builtin.o meta.o file.o init_branch.o tio.o structure.o token.o thread.o
  132. ! OBJB = name.o buffer.o other.o time.o compare.o substuff.o arith.o saverest.o
  133. ! OBJS = $(OBJ1) $(OBJ2) $(OBJA) $(OBJB)
  134.   
  135. ! SRC1 = main.c dispatch.c init.c float.c io.c sub_inst.c loader.c dis.c
  136. ! SRC2 = parse_oprnd.c print_inst.c unify.c load_work.c aux.c evalexp.c
  137. ! SRCA = builtin/builtin.c builtin/meta.c builtin/file.c builtin/init_branch.c
  138. ! SRCB = builtin/tio.c builtin/structure.c builtin/token.c builtin/thread.c
  139. ! SRCC = builtin/name.c builtin/buffer.c builtin/other.c builtin/time.c
  140. ! SRCD = builtin/compare.c builtin/substuff.c builtin/arith.c builtin/saverest.c
  141. ! SRCS = $(SRC1) $(SRC2) $(SRCA) $(SRCB) $(SRCC) $(SRCD)
  142.   
  143. + HS   = builtin/builtin.h sim.h aux.h
  144. + 
  145. + sbprolog  : $(OBJS)
  146. +     $(LD) -o sbprolog $(OBJS)  -lsun -lbsd -lm -lc_s
  147. + #    strip sbprolog
  148. + #    rm $(OBJS)
  149. + 
  150. + # optimize the #@!$ out of the program (-O4 is the maximum optimization
  151. + #    level under IRIX release 3.x (MIPS cc r1.1))
  152. + 
  153. + sim : $(SRCS)
  154. +     $(LD) -O4 -Olimit 1500 $(COPTS) $(SRCS) -o sim -lsun -lbsd -lm -lc_s
  155. + 
  156.   main.o : main.c simdef.h inst.h aux.h sim.h
  157.       $(CC) $(CFLAGS) main.c
  158. + 
  159.   dispatch.o: dispatch.c inst.h
  160.       $(CC) $(CFLAGS) dispatch.c 
  161. + 
  162.   dis.o: dis.c sim.h inst.h
  163.       $(CC) $(CFLAGS) dis.c 
  164. + 
  165.   init.o : init.c sim.h inst.h aux.h
  166.       $(CC) $(CFLAGS) init.c
  167. + 
  168.   float.o : float.c aux.h sim.h
  169.       $(CC) $(CFLAGS) float.c
  170. + 
  171.   io.o : io.c aux.h sim.h 
  172.       $(CC) $(CFLAGS) io.c 
  173. + 
  174.   sub_inst.o : sub_inst.c sim.h aux.h
  175.       $(CC) $(CFLAGS) sub_inst.c 
  176. + 
  177.   loader.o : loader.c sim.h inst.h 
  178.       $(CC) $(CFLAGS) loader.c 
  179. + 
  180.   parse_oprnd.o : parse_oprnd.c inst.h sim.h
  181.       $(CC) $(CFLAGS) parse_oprnd.c 
  182. + 
  183.   print_inst.o : print_inst.c inst.h sim.h
  184.       $(CC) $(CFLAGS) print_inst.c 
  185. + 
  186.   unify.o : unify.c sim.h aux.h
  187.       $(CC) $(CFLAGS) unify.c 
  188. + 
  189.   load_work.o : load_work.c sim.h aux.h
  190.       $(CC) $(CFLAGS) load_work.c 
  191. + 
  192.   aux.o : aux.c
  193.       $(CC) $(CFLAGS) aux.c 
  194. + 
  195.   evalexp.o : evalexp.c
  196.       $(CC) $(CFLAGS) evalexp.c 
  197. + 
  198. + 
  199. + #file in the "builtin/" subdirectory
  200. + 
  201. + builtin.o: $(HS) builtin/builtin.c
  202. +     cc $(CFLAGS) builtin/builtin.c
  203. + 
  204. + token.o: $(HS) builtin/token.c
  205. +     cc $(CFLAGS) builtin/token.c
  206. + 
  207. + file.o: $(HS) builtin/file.c
  208. +     cc $(CFLAGS) builtin/file.c
  209. + 
  210. + substuff.o: $(HS) builtin/substuff.c
  211. +     cc $(CFLAGS) builtin/substuff.c
  212. + 
  213. + buffer.o: $(HS) builtin/buffer.c
  214. +     cc $(CFLAGS) builtin/buffer.c
  215. + 
  216. + other.o: $(HS) builtin/other.c
  217. +     cc $(CFLAGS) builtin/other.c
  218. + 
  219. + init_branch.o: builtin/builtin.h builtin/init_branch.c
  220. +     cc $(CFLAGS) builtin/init_branch.c
  221. + 
  222. + meta.o: $(HS) builtin/meta.c
  223. +     cc $(CFLAGS) builtin/meta.c
  224. + 
  225. + name.o: $(HS) builtin/name.c
  226. +     cc $(CFLAGS) builtin/name.c
  227. + 
  228. + structure.o: $(HS)  builtin/structure.c
  229. +     cc $(CFLAGS) builtin/structure.c
  230. + 
  231. + tio.o: $(HS) builtin/tio.c
  232. +     cc $(CFLAGS) builtin/tio.c
  233. + 
  234. + time.o: $(HS) builtin/time.c
  235. +     cc $(CFLAGS) builtin/time.c
  236. + 
  237. + compare.o: $(HS) builtin/compare.c
  238. +     cc $(CFLAGS) builtin/compare.c
  239. + 
  240. + arith.o: builtin/arith.c $(HS)
  241. +     cc $(CFLAGS) builtin/arith.c
  242. + 
  243. + saverest.o: builtin/saverest.c $(HS)
  244. +     cc $(CFLAGS) builtin/saverest.c
  245. + 
  246. + thread.o:  $(HS) builtin/thread.c
  247. +     cc $(CFLAGS) builtin/thread.c
  248. \Rogue\Monster\
  249. else
  250.   echo "will not over write ./diffs/Makefile.diff"
  251. fi
  252. if `test ! -s ./diffs/other.c.diff`
  253. then
  254. echo "writing ./diffs/other.c.diff"
  255. cat > ./diffs/other.c.diff << '\Rogue\Monster\'
  256. *** builtin/other.c.orig    Thu Jan  5 13:09:59 1989
  257. --- builtin/other.c    Thu Dec 15 14:22:22 1988
  258. ***************
  259. *** 79,84 ****
  260. --- 79,89 ----
  261.       return(i);
  262.   }
  263.   
  264. + #ifdef IRIS_4D
  265. + #include <sys.s>
  266. + #else
  267. + #define SYSVoffset 0
  268. + #endif
  269.   
  270.   b_SYSCALL()  /* r1: call # ; R2: a list of parameters; R3: returned value */
  271.   {
  272. ***************
  273. *** 89,109 ****
  274.       op1 = GREGC(1);  DEREF(op1);
  275.       n   = INTVAL(op1);              /* syscall number */
  276.       switch ( getgenargs(2) ) {
  277. !       case  1: r = syscall(n);
  278.                  break;
  279. !       case  2: r = syscall(n, call_arg[1]);
  280.                  break;
  281. !       case  3: r = syscall(n, call_arg[1], call_arg[2]);
  282.                  break;
  283. !       case  4: r = syscall(n, call_arg[1], call_arg[2], call_arg[3]);
  284.                  break;
  285. !       case  5: r = syscall(n, call_arg[1], call_arg[2], call_arg[3],
  286.                                 call_arg[4]);
  287.                  break;
  288. !       case  6: r = syscall(n, call_arg[1], call_arg[2], call_arg[3],
  289.                                 call_arg[4], call_arg[5]);
  290.                  break;
  291. !       case  7: r = syscall(n, call_arg[1], call_arg[2], call_arg[3],
  292.                                 call_arg[4], call_arg[5], call_arg[6]);
  293.                  break;
  294.         default: quit( "Too many arguments for syscall\n" );
  295. --- 94,114 ----
  296.       op1 = GREGC(1);  DEREF(op1);
  297.       n   = INTVAL(op1);              /* syscall number */
  298.       switch ( getgenargs(2) ) {
  299. !       case  1: r = syscall(n + SYSVoffset);
  300.                  break;
  301. !       case  2: r = syscall(n + SYSVoffset, call_arg[1]);
  302.                  break;
  303. !       case  3: r = syscall(n + SYSVoffset, call_arg[1], call_arg[2]);
  304.                  break;
  305. !       case  4: r = syscall(n + SYSVoffset, call_arg[1], call_arg[2], call_arg[3]);
  306.                  break;
  307. !       case  5: r = syscall(n + SYSVoffset, call_arg[1], call_arg[2], call_arg[3],
  308.                                 call_arg[4]);
  309.                  break;
  310. !       case  6: r = syscall(n + SYSVoffset, call_arg[1], call_arg[2], call_arg[3],
  311.                                 call_arg[4], call_arg[5]);
  312.                  break;
  313. !       case  7: r = syscall(n + SYSVoffset, call_arg[1], call_arg[2], call_arg[3],
  314.                                 call_arg[4], call_arg[5], call_arg[6]);
  315.                  break;
  316.         default: quit( "Too many arguments for syscall\n" );
  317. \Rogue\Monster\
  318. else
  319.   echo "will not over write ./diffs/other.c.diff"
  320. fi
  321. if `test ! -s ./diffs/sub_inst.c.diff`
  322. then
  323. echo "writing ./diffs/sub_inst.c.diff"
  324. cat > ./diffs/sub_inst.c.diff << '\Rogue\Monster\'
  325. *** sub_inst.c.orig    Thu Jan  5 13:09:11 1989
  326. --- sub_inst.c    Wed Dec 14 13:34:50 1988
  327. ***************
  328. *** 5,11 ****
  329. --- 5,13 ----
  330.   #include "aux.h"
  331.   
  332.   
  333. + #ifdef BSD4
  334.   struct sigvec vec;
  335. + #endif
  336.   
  337.   /* set interrupt code in reg 2 and return ep of interrupt handler */
  338.   LONG_PTR  set_intercode(intcode)
  339. ***************
  340. *** 33,38 ****
  341. --- 35,41 ----
  342.   
  343.   arm_intercept()
  344.   {
  345. + #ifdef BSD4
  346.       /* set up interrupt routine */
  347.       vec.sv_handler = intercept_proc;
  348.       vec.sv_mask = 0;
  349. ***************
  350. *** 38,43 ****
  351. --- 41,50 ----
  352.       vec.sv_mask = 0;
  353.       vec.sv_onstack = 0;
  354.       sigvec(2, &vec, 0);
  355. + #endif
  356. + #ifdef IRIS_4D
  357. +     signal( SIGINT, &intercept_proc);
  358. + #endif
  359.   }
  360.   /****************************************************************************/
  361.   callv_sub()   /* arg from register 1 */
  362. \Rogue\Monster\
  363. else
  364.   echo "will not over write ./diffs/sub_inst.c.diff"
  365. fi
  366. if `test ! -s ./diffs/time.c.diff`
  367. then
  368. echo "writing ./diffs/time.c.diff"
  369. cat > ./diffs/time.c.diff << '\Rogue\Monster\'
  370. *** builtin/time.c.orig    Thu Jan  5 13:10:11 1989
  371. --- builtin/time.c    Thu Jan  5 10:38:10 1989
  372. ***************
  373. *** 1,17 ****
  374.   
  375.   /* time.c */
  376.   
  377.   #include <sys/time.h>
  378.   #include <sys/resource.h>
  379.   #include "builtin.h"
  380.   
  381.   b_CPUTIME()   /* R1: miliseconds */
  382.   {
  383. -     struct rusage   usage;
  384.       int             msec;
  385.   
  386.       getrusage(0, &usage);
  387.       msec =  usage.ru_utime.tv_sec * 1000 + usage.ru_utime.tv_usec / 1000;
  388.       if (!unify(GREGC(1), MAKEINT(msec)))
  389.          {FAIL0;} 
  390.   }
  391. --- 1,46 ----
  392.   
  393.   /* time.c */
  394.   
  395. + #ifdef BSD4
  396.   #include <sys/time.h>
  397.   #include <sys/resource.h>
  398. + #endif
  399. + #ifdef ATT
  400. + #include <sys/types.h>
  401. + #include <sys/times.h>
  402. + #include <sys/param.h>
  403. + #endif
  404.   #include "builtin.h"
  405.   
  406.   b_CPUTIME()   /* R1: miliseconds */
  407.   {
  408.       int             msec;
  409. + #ifdef BSD4
  410. +     struct rusage   usage;
  411.   
  412.       getrusage(0, &usage);
  413.       msec =  usage.ru_utime.tv_sec * 1000 + usage.ru_utime.tv_usec / 1000;
  414. + #else
  415. + #ifdef ATT
  416. +     /*
  417. +      * return the SysV.3 usage stuff
  418. +      */
  419. + 
  420. +     struct tms buffer;
  421. +     long       rc;
  422. + 
  423. +     if ((rc = times(&buffer)) == -1)
  424. +       {
  425. +         msec = 0;
  426. +       }
  427. +     else
  428. +       {
  429. +         msec = buffer.tms_utime * 1000 / HZ;
  430. +       }
  431. + #else
  432. +     msec = 0;
  433. + #endif !IRIS_4D
  434. + #endif !BSD4
  435.       if (!unify(GREGC(1), MAKEINT(msec)))
  436.          {FAIL0;} 
  437.   }
  438. ***************
  439. *** 18,26 ****
  440.   
  441.   b_STATS()   /* r1: code to indicate desired stat; r2: returned stat */
  442.   {
  443.      register LONG       op1;
  444.      register LONG_PTR   top;
  445. -    int                 stat;
  446.      struct rusage       usage;
  447.   
  448.      op1 = GREGC(1); DEREF(op1);
  449. --- 47,56 ----
  450.   
  451.   b_STATS()   /* r1: code to indicate desired stat; r2: returned stat */
  452.   {
  453. +    int                 stat;
  454. + #ifdef BSD4
  455.      register LONG       op1;
  456.      register LONG_PTR   top;
  457.      struct rusage       usage;
  458.   
  459.      op1 = GREGC(1); DEREF(op1);
  460. ***************
  461. *** 52,57 ****
  462. --- 82,90 ----
  463.                 break;
  464.        default: stat = 0;
  465.      }
  466. + #else
  467. +    stat = 0;
  468. + #endif
  469.      if (!unify(GREGC(2), MAKEINT(stat))) 
  470.         {FAIL0;}
  471.   }
  472. \Rogue\Monster\
  473. else
  474.   echo "will not over write ./diffs/time.c.diff"
  475. fi
  476. if `test ! -s ./diffs/unify.c.diff`
  477. then
  478. echo "writing ./diffs/unify.c.diff"
  479. cat > ./diffs/unify.c.diff << '\Rogue\Monster\'
  480. *** unify.c.orig    Thu Jan  5 13:09:00 1989
  481. --- unify.c    Tue Dec 13 16:14:41 1988
  482. ***************
  483. *** 1,7 ****
  484.   /* unify.c */
  485.   
  486. ! #include "/usr5/elegy/sb/sim/src/sim.h"
  487. ! #include "/usr5/elegy/sb/sim/src/aux.h"
  488.   
  489.   extern double     floatval();
  490.   extern         prettymuch_equal();
  491. --- 1,7 ----
  492.   /* unify.c */
  493.   
  494. ! #include "sim.h"
  495. ! #include "aux.h"
  496.   
  497.   extern double     floatval();
  498.   extern         prettymuch_equal();
  499. \Rogue\Monster\
  500. else
  501.   echo "will not over write ./diffs/unify.c.diff"
  502. fi
  503. if `test ! -d ./bench`
  504. then
  505.   mkdir ./bench
  506.   echo "mkdir ./bench"
  507. fi
  508. if `test ! -s ./bench/sim.bench`
  509. then
  510. echo "writing ./bench/sim.bench"
  511. cat > ./bench/sim.bench << '\Rogue\Monster\'
  512. tail_call_atom_atom took (1550 - 290.000000) / 2000 = 0.630000 milli-seconds/iteration
  513. binary_call_atom_atom took (3030 - 290.000000) / 2000 = 1.370000 milli-seconds/iteration
  514. cons_list took (3100 - 280.000000) / 2000 = 1.410000 milli-seconds/iteration
  515. walk_list took (3080 - 280.000000) / 2000 = 1.400000 milli-seconds/iteration
  516. walk_list_rec took (1640 - 280.000000) / 2000 = 0.680000 milli-seconds/iteration
  517. args(1) took (1650 - 290.000000) / 2000 = 0.680000 milli-seconds/iteration
  518. args(2) took (2600 - 300.000000) / 2000 = 1.150000 milli-seconds/iteration
  519. args(4) took (4450 - 290.000000) / 2000 = 2.080000 milli-seconds/iteration
  520. args(8) took (8210 - 300.000000) / 2000 = 3.955000 milli-seconds/iteration
  521. args(16) took (15640 - 290.000000) / 2000 = 7.674999 milli-seconds/iteration
  522. cons_term took (3370 - 280.000000) / 2000 = 1.545000 milli-seconds/iteration
  523. walk_term took (3400 - 280.000000) / 2000 = 1.560000 milli-seconds/iteration
  524. walk_term_rec took (2970 - 280.000000) / 2000 = 1.345000 milli-seconds/iteration
  525. shallow_backtracking took (2150 - 290.000000) / 2000 = 0.930000 milli-seconds/iteration
  526. deep_backtracking took (4210 - 290.000000) / 2000 = 1.960000 milli-seconds/iteration
  527. choice_point took (4580 - 290.000000) / 2000 = 2.145000 milli-seconds/iteration
  528. trail_variables took (5300 - 290.000000) / 2000 = 2.505000 milli-seconds/iteration
  529. medium_unify took (2260 - 280.000000) / 2000 = 0.990000 milli-seconds/iteration
  530. deep_unify took (6390 - 20.000000) / 100 = 63.699997 milli-seconds/iteration
  531. integer_add took (1880 - 140.000000) / 1000 = 1.740000 milli-seconds/iteration
  532. floating_add took (12260 - 150.000000) / 1000 = 12.110001 milli-seconds/iteration
  533. arg(1) took (4060 - 290.000000) / 2000 = 1.885000 milli-seconds/iteration
  534. arg(2) took (4070 - 290.000000) / 2000 = 1.890000 milli-seconds/iteration
  535. arg(4) took (4080 - 290.000000) / 2000 = 1.895000 milli-seconds/iteration
  536. arg(8) took (4070 - 290.000000) / 2000 = 1.890000 milli-seconds/iteration
  537. arg(16) took (4040 - 280.000000) / 2000 = 1.880000 milli-seconds/iteration
  538. index took (5150 - 290.000000) / 2000 = 2.430000 milli-seconds/iteration
  539. assert_unit took (4320 - 0.000000) / 1 = 4320 milli-seconds/iteration
  540. access_unit took (10440 - 20.000000) / 100 = 104.200012 milli-seconds/iteration
  541. slow_access_unit took (1620 - 10.000000) / 10 = 161 milli-seconds/iteration
  542. setof took (2460 - 0.000000) / 10 = 246 milli-seconds/iteration
  543. pair_setof took (3080 - 0.000000) / 10 = 308 milli-seconds/iteration
  544. double_setof took (7140 - 0.000000) / 10 = 714 milli-seconds/iteration
  545. bagof took (900 - 0.000000) / 10 = 90 milli-seconds/iteration
  546. \Rogue\Monster\
  547. else
  548.   echo "will not over write ./bench/sim.bench"
  549. fi
  550. if `test ! -s ./bench/sim.nrev`
  551. then
  552. echo "writing ./bench/sim.nrev"
  553. cat > ./bench/sim.nrev << '\Rogue\Monster\'
  554. 161850
  555. 162360
  556. 254270
  557. 510
  558. 91910
  559. 91400
  560. Lips = 7276.068359
  561. \Rogue\Monster\
  562. else
  563.   echo "will not over write ./bench/sim.nrev"
  564. fi
  565. echo "Finished archive 1 of 1"
  566. exit 0
  567. --------
  568. Scott Henry <scotth@harlie.sgi.com>
  569. Silicon Graphics, Inc.
  570. Mountain View, CA
  571.  
  572.  
  573.  
  574.